home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / RGASM.RAR / ASMCODE.EXE / CHAPT9 / CLFSERV.PRG < prev    next >
Encoding:
Text File  |  1993-05-10  |  399 b   |  21 lines
  1. *
  2. *  Program ClfServ ( Chapter 9 )
  3. *
  4. Clear
  5.  
  6. Fn = 'c:config.sys'
  7. Lf = FileSize(Fn)
  8. La = FileAttr(Fn)
  9. ? 'File: ', Fn, '  Length: ' , Lf, '  Attribute: ', La
  10.  
  11. Fn = 'c:MsDos.sys'
  12. Lf = FileSize(Fn)
  13. La = FileAttr(Fn)
  14. ? 'File: ', Fn, '  Length: ' , Lf, '  Attribute: ', La
  15.  
  16. Fn = 'c:IBMDos.com'
  17. Lf = FileSize(Fn)
  18. La = FileAttr(Fn)
  19. ? 'File: ', Fn, '  Length: ' , Lf, '  Attribute: ', La
  20.  
  21.